home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 14 / Big_Mouth_The_14_1997_-_Side_C.d64 / the main menu_bm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  40 lines
  1. 1 rem"          "bm staff eyes only!(NULL)
  2. 2 poke 808,234:poke 53280,0:poke 53281,0
  3. 4 fort=1 to 500:next
  4. 6 print"[147][155]       - the big mouth magazine -"
  5. 8 fort=1 to 2000:next
  6. 10 print"[147]"
  7. 15 fort=1 to 500:next
  8. 20 printtab(7)"the big mouth - main menu"
  9. 30 print"a - weird worlds"
  10. 31 print"b - weird worlds important note"
  11. 32 print"c - paralax preview"
  12. 33 print"d - tusker/dominator music ripp"
  13. 34 print"e - last ninja 2 music ripp"
  14. 35 print"f - connect 4"
  15. 50 print"pick a program to load (a-f) ?"
  16. 55 get a$:if a$="" then 55
  17. 60 a=asc(a$):if a-64<1 or a-64>6 then 55
  18. 65 if a-64=2 then 110
  19. 70 forx=49152 to 49170:ready:poke x,y:next x
  20. 75 print"  loading your selection - please wait"
  21. 76 sys 49152
  22. 77 data 120,169,013,141,040,003,169,192
  23. 78 data 141,041,003,088,096,238,032,208
  24. 79 data 076,237,246
  25. 80 on a-64 goto 105,110,120,121,122,123
  26. 100 :
  27. 105 load"weird worlds /ex",8,1
  28. 110 print"[147]"tab(10)" weird worlds [146] note"
  29. 111 print"before loading the demo, turn your disk"
  30. 112 print"drive off and then on again, or if your"
  31. 113 print"drive has a reset button, press that."
  32. 114 print"if you do not do this, the demo will    stuff up after the mario intro."
  33. 115 print""tab(12)" press spacebar "
  34. 116 get a$:if a$<>chr$(32) then 116
  35. 117 goto 10
  36. 120 load"paralax  preview",8,1
  37. 121 load"tusker/dominator",8,1
  38. 122 load"last ninja 2 rip",8,1
  39. 123 load"connect 4    /ba",8,1
  40.